home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / littelcomp / r5 / lc / examples / test.library.l < prev    next >
Text File  |  2000-02-28  |  1KB  |  56 lines
  1. ;,//      LITTEL v0.17b - lets make a little library
  2.  
  3. #mode LIBRARY 37 1 "test.library" "test.library by me 2000"
  4.  
  5. #link library.lib  ; must do this.
  6.  
  7. #incdir "app:progg/asm/phxass/examples/include/lib/"
  8. #include "dos.i"
  9.  
  10. #makefd test_lib.fd _TestBase ; make .fd file for it
  11. ;#makei test_lib.i
  12. ;#makelvo test_lib.lvo
  13.  
  14.  
  15. #fdef Inc10 (val)(d0)  ;// make our functions public, starting at -30
  16. #fdef Inc100 (val)(d0)
  17. #fdef Inc10p (val)()
  18. #fdef Delay100 ()()
  19. #fdef bla ()()
  20. #endfdef
  21.  
  22.  
  23. #LibraryEnv OFF   ; we will not use any globals, but want to preserve regs.
  24.  
  25. PROC Inc10
  26.    inc D0 10
  27. ENDPROC   ;// just a silly example //
  28.  
  29. PROC Inc100
  30.    inc D0 100
  31. ENDPROC
  32.  
  33. PROC Inc10p %param
  34.    CODESTART
  35.    inc %param 10
  36. ENDPROC %param
  37.  
  38. #LibraryEnv STARTUP  ; we want to use startup globals, no extra regs preserved.
  39.  
  40. PROC Delay100
  41.    copy 100 D0
  42.    copy 100 D1
  43.    call _DOSBase Delay  ; using the startup global
  44. ENDPROC
  45.  
  46. GVAR _nisse  ; shared global
  47.  
  48. #LibraryEnv SHARED  ; we want to use shared globals, regs are preserved.
  49.  
  50. PROC bla
  51.    INC _nisse      ; using the shared global..
  52. ENDPROC
  53.  
  54. END
  55.  
  56.